• Home
 · 
• Windows System Services
 · 
• This code gets the hard-disk drive unit es. (c:\)

This code gets the hard-disk drive unit es. (c:\)

This code gets the hard-disk drive unit es. (c:\)

Rate This code gets the hard-disk drive unit es. (c:\)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim wRet As Long
Dim wWinDir As String * 128
wRet = GetWindowsDirectory(wWinDir, 128)
GetWindowsDir = Left(Trim(wWinDir), wRet) + IIf(Right(wWinDir, 1) <> "\", "\", "")
End Function
Public Function HardDisk() As String
HardDisk = Left(GetWindowsDir, 3) ' Gets the first three charapters (c:\)
End Function